home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / uflat2 / utils.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-18  |  921 b   |  43 lines
  1. /*
  2.    File: utils.c
  3.    Low level utilities.
  4. */
  5. #include <stdio.h>        /* standard UNIX I/O libary */
  6.  
  7. #include <tmc.h>        /* the tm support library */
  8. #include <cvr.h>        /* personal support library */
  9.  
  10. #include "uflat2const.h"
  11. #include "tmcode.h"
  12. #include "utils.h"        /* low level utility functions */
  13.  
  14. /* Search for symbol 's' in the list 'l' and return TRUE if
  15.    found or FALSE otherwise.
  16.  */
  17. bool member_symbol_list (s, l)
  18.  symbol s;
  19.  symbol_list l;
  20.     { register int ix;
  21.       for (ix = 0; ix < l -> sz; ix++)
  22.          if (l -> arr[ix] == s) return (TRUE);
  23.       return (FALSE);
  24.     };
  25.  
  26. /* Given a symbol list 'l' and a symbol 's', append it to the
  27.  * list if it isn't already there.
  28.  */
  29. void add_symbol_list (l, s)
  30.  symbol_list l;
  31.  symbol s;
  32.     { if (member_symbol_list (s, l)) return;
  33.       app_symbol_list (l, s);
  34.     };
  35.  
  36. void docrash (msg, f, l)
  37.  char *msg;
  38.  char *f;
  39.  int l;
  40.     { fprintf (stderr, "%s(%d): %s.\n", f, l, msg);
  41.       exit(1);
  42.     };
  43.